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***** AUXMEM TEST ROUTINE ***** 
COMMENT! * TITLE* B5500/B13700 MARK 
* FILE IDl SYMRQI /AUxTST 



XV. 1 SYSTEM RELEASE 
TAPE lQISYrtdQ L ?/FTl Fnnn 



* THIS MATERIAL IS PROPRIETARY To BURKOU G HS CORPORATION 

* AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED 
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EXCEPT In ACCORDANCE WITH PrtnGRAM i.ICEmSE HR UPfiM 



* WRITTEN AUTHORIZATION OF ThE PATENT DIVISION OF 

* BURROUGHS CORPORATION* UeTrOjT, MICHIGAN 4B232 



00001112 
00001H3 
00001114 



* 



r . npYRTfiHT (C) 1 972, U LZJ R LR s nufiHS CnnpnB>T T QN 



* 
* 
* 



00001115 
00001116 
QQQ011U 
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INTEGER UNIT; 

LAfaEL TART*START*TlMER*ASKTEST*tiNfERUNlT; 
REAL I ,1, CORE » I NTEST.FRKTri G, MESSAGE , TESTwdRn; 
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XAUXMEM UNIT NUMBER 



DEFINE 

SPO*P 749000000000 COO*, 

ftftAsi a. 
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*SPO DESCRIPTOR 



DRB=2#* 

READ*1*# 
MRTTF«n«I 
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SAVE PROCEDURE IOERR(IOD); V A L UE IQDJ REA L 100/ FQR wA RD; 

SAVE REAL PROCEDURE EGMl FORWARO* 

S A VF PR O rFnilRF m f A nnB F S ^.Tfin.MASK^ 

value address»iod,mask; real aduress»i-qd»mask; 
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begin 



rea l t i me,n £ wtii*e ; 



iod «■ address 

PUIQDJjIIO); 

TF tLL*£JliLuZ2$±5JJA 



I NX lODi 

then 
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IF CTtL25»5j AND (NOT MASK))/0 THEN IOERRUUD); 

IF P(T.C3*5.3#DUP)*b OR P(XCH)=« THEN % TwAS AUXMEM 

TF T , f?9in THEN % P A RITY PgnPi . KM. ' S 
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BEGIN 
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BEGIN 

DSl=26LlT ,f AUXMEM PARITY 

sn«i,nc a? 
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ERROR - RL3*", 



2CDSJslIT« «, 8(DS:s3 RE^ET; 3(IF SB THEN 

DSisSET ELSE DSjaRESET* SKIP SB))); 
DS«»ia LIT"* &MB |___j |__j Sl*sSl+5l SKIP 3 SB1 
b(DS:=3 RESET; 3CIF SB THEN OSJsSET ELSE 
USJ=RESET> SKIP SB))> 
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end; 
ic(message*spo#0); 
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end; 
save procedure ioerr(oes); 
value des;real pes; 
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BEGIN REAL.X*I0D>R; 
DEFINE RESULT«T#; 
H)D*»tm»nrsiu,T? t f3f?ly 

X .......* IF IQD*30 THEN "SPQ M 

IF I0D»26 THEN "LPB" 
IF TDnx 22 ThFN w i P t» 
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IF IQD* 6 THEN "OKA" ELSE 

IF IOD* 4 THEN "DRA" ELSE "XxX"; 

STRE A M ( X » A I b R E S UL T » C kS » 6 3 > Mfc S .S A fig ) i .. 
BEGIN 
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SIlssLQC X; SI»«SI+5J 058*3 
nSial? LIT" 'ERROR* RESULT? 



chr; 



SIJ=Sl+6; SKIP 3 SB> 

3CDSJs3 RESET* 3C IF SB THEN DSt=SLT 
El SF DStgRFSFT; SKIP SB) J? 
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end; 
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IF 100 =10 THEN 

BEGIN DO UNTIL P C RKR ) . C24 J 1 J = 

n n u nti l PfRRH ), r , afl»i j f 
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enq; 



END ELSE 
P(OES*R#ZPi»DEL#0EL)J 
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SAVE PROCEDURE AUXME^ IQ( READ/ CORE, AODRESS,MASK ) / 

VALUE READjCOREjADDRESS'MaSK; 

REAL RFAO. CORF. ADnRFSS. Mask: 
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BEGIN 

IO<CORE»04READt2««7»134uNITC ; '«*«6'2 34AOORESSC18i33ii5 34H'8t38llO], 

MASK)} ; : ______ 
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end; 

save procedure 

BE GIN : 



000/2000 
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CQMPAREPATTERNS; 



integer biti 

real testwrd,ntest; 

I ARFI FOUND r 
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TESTWRD s*M[Pc. TEST WORD )] 
IF CTESTWRD EQV NTEST) * 
BE G IN 



.C1M7J'. N.TESTl 

not o Then 



= MCP(.INTEST)3,U«47]; 
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FOR BlTlal STEP I UNTIL 47 00 
BEGIN - 
IF TrSTWRn THEN IF NTEST THfN fLSE GO FOUNn 
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IF NUT NTEST THEN ELSE GQ FOUND; 
TESTWRd:«Tf.STWRj,Ci«46]; NTEST :aNTEST,tlU6]^ 



ELSE 
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FOUND* 
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B_I_ ___ 
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sh*loc a; si»=si+5; s K ip 3 sb; 

BSta33 LlT'AUXMEM PATTERN ERROR - ADDRESS* e"; 
5(p5t*3 RESET; 3(IF S_ THEN pSl«5_T ELSE QSI = RESeT; 
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end ; 



SKIP 
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BIT" M ; 0S:«2 DEC; DSisLtT"*"; 



lO.(MESSAGE*SPU*o>j 
STREAM(A:sP( f T E ST WORD), MESSAGE); 
BEGIN _ 
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0009800Q 



SM«A) DStaBLlT "WRITE! "; 
2(DS|sLlT" "; 8(DSt»3 RESET; 3(lF SB THEN 
QSI»SET ELSE QS» 3 RESCT; SKIP SB))); 
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DS»»LIT"*"; 

end; 
io(messa6e»spu>0); 
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STREAM C A«*P(. I NTEST )* MESSAGE); 
BEGIN 
SII»a; DSis8LIT" ttEAQ* "j 
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2(DSi«in" "; 8CDb: = j reset; 3CU SB then 

DS:=SET ELSE OS*sRESET; SMP SB))); 
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I0(MF.SSAGL*SPO»0); 
END ELSE 
TF P(.TFSTWORr)>l rn» TOP, XCM, OFL)X P t . I N H ST I Un> TOE* XCH» nF I ) THF 
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00115000 
00116000 



BEGIN 



bit:=48; gc fuund; 



END* 



End; 

SAVE 
BEGIN 



PROCEDURE TESTAUXMLM; 



FOR 1 1*0 STEP 1 UNTIL 32707 DO 
BEGIN 
AUXMEMinriwHlThyPC , TEST unfit)? 



rl/\)i 



AUXMEMI0(READ*P'CINTE5T)»IM); 
COMPAREPATTERNS; 



end ; 



end; 

save real procedure ecm; 

b egin go t o timer end; 



TART *e20» GO TO START/ 

TIMER IP22IPCINI); GO TO TIMER; * TIME INTERVAL 
» ? 2 /I t G TO TIMER; % KEYBOARD REQUEST 



5P25JGC TO TIMER* 
JP26JG0 TU TIMER; 
iP?7lP<m»Lt')0»RTN)i 



* I/O *l FINISHED 



I*30IPC$1S*LQD»RTN); * 
»P31»P(F16,lOD»RTN); * 
t»32IP(H7iLnOtRTN); it 



I/O 
I/O 

i/n 



#2 FINISHED 
#3 FINISHED 
#tt FINISHED 



;e»3a :gc tu timer; x inquiry request 

STARTS*: P(64#STS)i 

C0RE + P(.E0M*L0D).r33M5l + 3; 



STREAM(CORE); 

BEGIN DS*8 LIT"0»; SI»«CORE* 
3?fns»3? wns.i 



* IMT1ALUE PE.SC 



% ZERO 102* KORDS 



end; 

MESSAGE Ss CORE; 
C0RE«=C0RE+1Q0; 



% * ■** ***************** 
ENTERUNIT*: 
FRRTOG**0; 



MAIN LOOP ************************ 



STREAM(MESSAGE); DS;=29 LIT"ENTER AUXM£M UM1#0RA OR ORB* 
IO(MESSAGE>SPO#0); 

infMFSSAfiE>spn&HEAn[?*itt7;i]*o)> 

STREAM(AS»0lBl« M DRA0RB W *MESSAGE)| 
BEGIN 

— sitsMFSSAtsrt ■■hitmff.fl jjj nii*ni*ii 



"; 



IF 3 SC*OC THEN TALLY. »1 ELSE 
BEGIN SIJ8MESSAGE; IF 3 SC'DC 
AlaTALLYJ 



THEN TALLY l»2 END; 



end; 
1 
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nd; 

f p(unlt«*p*dup)^dra and p(xch)>drb then go enterumh 

TREAMCAt°TF UNTT THEM "OftA" ELSE »DRB«, MESSAGE 1 J 

rr.tw 



BEGIN 



si*=loc a; si»*si+s; qs»s3 ohh; 

nSflft LIT" WILL BE T ESTFP*" i' 



end; 

IO(MESSAGE»SPO#0>; 
****** »TFST INTERROGATE PERIPHERAL STATUS* IttllX* 
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IF (UNIT AN0 ( I i«P(KRR)).C30»2J )»0 THEN % UNIT NOT READY 
BEGIN 
STRFAHf AlsTfPFSSAfifcn 
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BEGIN 



SI«»L0C AJ 

DSIaflB Ln w INTFRRQfi^TF 



2(DSJ=Lir" ••; 



D S *bHT"»" J 



PERIPHERAL STATUS ERROR, RES s"j 



00174000 
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00176000 



B(DS:s3 RESET/ 3 C IF SB THEN 

Dis*RtSET; skip sai)); 



DSl»5ET ELSE 
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end; 

IO(M£SSAGE»SP0'0j; 
r.n ENTERUMU 
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END ELSE 
BEGIN 
STW EA M(M E SS AG E) ; 



DS*«4S LIT M INTERR0GATE 
IO(M£SSAGE,SPO*0); 



PERIPHERAL STATUS OPERATOR IS QK + m ; 
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END? 



%%%%%% -test determination- %%%%%%. 
asktest: 

STRFAMtMFSSAGFW 



DS*»33 LIT M READ-CNLT TEST DESIR£0,YES OR NO*"; 

IO(MESSAGE*SPO»0)? 

IQCMESSAG£».SPQltREA0r24U7n UO)i 



STREAMCA:=0:Bls"YESNO "MESSAGE); 
BEGIN 

susmfssagei di:bi„oc a; m.=ni + i; 



IF 3 Sc*DC THEN TALLY:*1 ELSE 
BEGIN SI»»MESSAGE* IF 2 SC»DC 
Al sT A LLV; 



THEN TALL*»*2 END; 



end; 

if (h=p) then 
%%%%%% -begin rfad-qm y 



TFiiT- %%%i%* 



BEGIN 



streamcmessagE); 

DSla3SLIT"BFRlNMIhlfl 



READ-UNl Y TEST**; 



I0(MESSA6E».SP0#0); 

FOR 15 = STEP 1 UNTIL 327(57 00 

AUXMEMlCICREAn>PC«INTFST)f l>j)i 



STREAMC ERR J sERRTGG, MESSAGE); 
BEGIN 
nSlf3f! LlT-READ-ONLY TEST 



COMPt ETL... NO "i 



ERR(0ls = 0I-3); D5!»6 LiT'ERRORS"; 

ERR(DS: = 12 LIT" ENCOUNTERED" ) ; OS : *LI T"*-"* 



ENDJ 



SMO- 



I0(MESSA6E*SPO#O)i 

go enterunit; 
else ,|f u? then go to 



jiSkTfSt t 



%%%%%% -begin pattern tests- %%%%%% 

streamcmessage); 
d s «« 2 4 li t w be ginmng patt e rn test s *-"? 



i0cme3sage#sp0»0); 
testworo«»o; 

TESTAUXMEMi 



X PATTERN «U 



testword i =flag c$377777 777777 7 777); 
testauxmem; 

TrSTHqRm 8 P75pq?5?S2'S?5?5?5: 



% PATTERN #2 
% PATTE R N 13 



testauxmem; 

TESTWORDl«FLAGC? 1252523252525252); 
TFSTAUXMEMi 



X PATTERN #4 
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stheam(errj = errtcg»mf:s6age); 

BEGIN 
DSi«29 LIT M FATTFRN TFST3 COMP LE T E 



nc w ; 
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£R«C0I«»0I-3)J DS»»6 L IT*ERK0RS" ; 
ERR(0S!*12 LIT" ENCOUNTER£O n )l 0S!»UT w *- H ; 



ENDi 



00234000 
00235000 

on236nnn 



i0cmessage*sp0*0); 
go enterunit; 



END. 
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